10 REM TRACK TRACE
15 PRINT"[147]"
20 INPUT"ENTER TRACK,SECTOR (0,0 TO QUIT)";T,S:A=T:B=S:PRINT:D=0:IFT=0 THEN END
30 PRINT"TRK:";A;"SEC:";B;:OPEN15,8,15:OPEN5,8,5,"#"
40 PRINT"--> ";:D=D+1:IFD>1THENPRINTCHR$(13);:D=0
50 PRINT#15,"U1";5;0;T;S:GET#5,A$:GET#5,B$:IFA$=""THENA=0:GOTO70
60 A=ASC(A$)
70 IFB$=""THENB=0:GOTO90
80 B=ASC(B$)
90 IFA>0THENPRINT"TRK:";A;"SEC:";B;:T=A:S=B:GOTO40
100 PRINT"LAST SECTOR":PRINT
110 CLOSE5:CLOSE15:GOTO20